home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 27 / PC Gamer IT CD 27.iso / MEDIA / STORE.DXR / Internal_43_Dragable Box2.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  722 b   |  34 lines
  1. on mouseEnter me
  2.   cursor(260)
  3.   set the text of field "rollover text" to "Drag this box to the shopping cart to get  more info on the software."
  4.   puppetSprite(38, 1)
  5.   set the moveableSprite of sprite 38 to 1
  6. end
  7.  
  8. on mouseLeave me
  9.   set the text of field "rollover text" to EMPTY
  10.   cursor(-1)
  11. end
  12.  
  13. on mouseDown me
  14.   cursor(290)
  15. end
  16.  
  17. on mouseUp me
  18.   cursor(-1)
  19.   if sprite 38 intersects 39 then
  20.     set the visible of sprite 38 to 0
  21.     set the locH of sprite 38 to 296
  22.     set the locH of sprite 38 to 210
  23.     resetBoxes()
  24.     go("info2")
  25.   else
  26.     set the locH of sprite 38 to 296
  27.     set the locH of sprite 38 to 210
  28.     set the visible of sprite 38 to 0
  29.     resetBoxes()
  30.     resetDrag()
  31.   end if
  32.   updateStage()
  33. end
  34.